object Form5: TForm5 Left = 236 Top = 35 BorderStyle = bsToolWindow Caption = 'AnyClock Face' ClientHeight = 444 ClientWidth = 269 Color = 8388672 Font.Color = clBlack Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OnActivate = FormCreate OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object Label22: TLabel Left = 4 Top = 345 Width = 67 Height = 16 Caption = 'Corner size' Font.Color = clWhite Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label1: TLabel Left = 4 Top = 310 Width = 21 Height = 16 Caption = 'Left' Font.Color = clWhite Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 100 Top = 310 Width = 25 Height = 16 Caption = 'Top' Font.Color = clWhite Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 4 Top = 414 Width = 43 Height = 16 Caption = 'TWidth' Font.Color = clWhite Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 142 Top = 414 Width = 48 Height = 16 Caption = 'THeight' Font.Color = clWhite Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object DriveComboBox1: TDriveComboBox Left = 5 Top = 10 Width = 257 Height = 22 DirList = DirectoryListBox1 TabOrder = 0 OnChange = DriveComboBox1Change end object DirectoryListBox1: TDirectoryListBox Left = 5 Top = 39 Width = 257 Height = 74 FileList = FileListBox1 ItemHeight = 16 TabOrder = 1 OnChange = DirectoryListBox1Change OnDblClick = DirectoryListBox1DblClick end object FileListBox1: TFileListBox Left = 5 Top = 121 Width = 257 Height = 80 ItemHeight = 16 Mask = '*.bmp;*.jpg;*.jpeg' TabOrder = 2 OnDblClick = FileListBox1DblClick end object RadioGroup1: TRadioGroup Left = 5 Top = 207 Width = 100 Height = 70 Caption = 'Clock Shape' Font.Color = clLime Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] Items.Strings = ( 'Round' 'Square' 'Both') ParentFont = False TabOrder = 3 OnClick = RadioGroup1Click end object SpinEdit32: TSpinEdit Left = 73 Top = 345 Width = 66 Height = 26 MaxValue = 0 MinValue = 0 TabOrder = 9 Value = 99999 OnChange = SpinEdit32Change end object CheckBox1: TCheckBox Left = 167 Top = 345 Width = 100 Height = 21 Caption = 'Hide taskbar' Font.Color = clLime Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 10 OnClick = CheckBox1Click end object RadioGroup2: TRadioGroup Left = 140 Top = 207 Width = 125 Height = 70 Caption = 'Window Position' Font.Color = clLime Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] Items.Strings = ( 'Top' 'None' 'Bottom') ParentFont = False TabOrder = 4 OnClick = RadioGroup2Click end object CheckBox2: TCheckBox Left = 182 Top = 285 Width = 80 Height = 21 Caption = 'Moveable' Font.Color = clLime Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 OnClick = CheckBox2Click end object SpinEdit1: TSpinEdit Left = 32 Top = 310 Width = 58 Height = 26 MaxValue = 9999 MinValue = 8 TabOrder = 7 Value = 9999 OnChange = SpinEdit1Change end object SpinEdit2: TSpinEdit Left = 126 Top = 310 Width = 58 Height = 26 MaxValue = 9999 MinValue = 8 TabOrder = 8 Value = 9999 OnChange = SpinEdit2Change end object Button1: TButton Left = 5 Top = 386 Width = 223 Height = 21 Caption = 'Steal Wallpaper Background' TabOrder = 11 OnClick = Button1Click end object CheckBox3: TCheckBox Left = 236 Top = 385 Width = 21 Height = 22 Font.Color = clLime Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 12 OnClick = CheckBox3Click end object SpinEdit3: TSpinEdit Left = 52 Top = 409 Width = 58 Height = 26 MaxValue = 9999 MinValue = 8 TabOrder = 13 Value = 9999 OnChange = SpinEdit3Change end object SpinEdit4: TSpinEdit Left = 194 Top = 409 Width = 58 Height = 26 MaxValue = 9999 MinValue = 8 TabOrder = 14 Value = 9999 OnChange = SpinEdit4Change end object Panel1: TPanel Left = 0 Top = 377 Width = 270 Height = 2 TabOrder = 15 end object CheckBox4: TCheckBox Left = 7 Top = 285 Width = 170 Height = 21 Caption = 'Ignore Screen Boundary' Font.Color = clLime Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 OnClick = CheckBox4Click end end